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RELACO 





OPERADORES RELACIQNAIS 

MAJOR, MENOR, IGUAL 

OPERADORES LOGICOS 

AND, OR E NOT 



TABELAS-VERDADE 



Os computadores sao capazes de 
executar milhoes de operacoes logicas 
em apenas urn segundo. Mas a logica e 
tambem parte fundamental de qualquer 
programa. Conhega seus operadores. 



A programacao BASIC utiliza tres u- 
pos de expressao: aritmetica, de cadeia 
e logica. As duas primeiras eompoem a 
maior parte de qualquer programa. Po- 
rem, cabe as expressoes logicas a respon- 
sabilidade pelas decisoes ao longo de um 
programa. 

A funcao das expressoes logicas e, 
simplesmente, verificar se algo e "ver- 
dadeiro" ou "falso". As palavras e sim- 
bolos usados para isso em um progra- 
ms sao chamados de operadores (ou, 
ainda, conectores). 

Nas expressoes logicas empregam-se 
dois tipos de operadores: os operadores 
reiacionais (que incluem simbolos ma- 
tematicos como < , > e = ) e os opera- 
dores Idgicos; AND, OR e NOT (inclui- 



dos na lista de comandos de qualquer 
versao BASIC). 



MAIOR, MENOR, IGUAL 



Os operadores 


reiacionais podem ser 


usados ate 


no mais simples 


dos progra- 


mas em BASIC. 


As comparacoes pos- 


siveis sao: 








A>B. 


. A e 


maior que 


B 


A<B 


A e 


menor que H 


A>=B ... 


. A e 


maior ou 


igual a B 


A< =B ... 


. A e 


menor ou 


igual a B 


A = B 


. A e 


igual a B 




A< >B ... 


. A nao e igual 


a B 



Voce ja deve ter visto esses operado- 
res em varios programas de INPUT. 
Embora possam ser nsadas em aritme- 
tica direta, e no uso eonjunto com o 
IF.. .THEN que se torna mais evidente 
sua contribuicao nos testes condicionais. 
Um exemplo comum: 
IF A>B THAN PRINT" A £ MAIOR 
QUE B" 



Neste caso, o valor de A deve ser 
maior que o de B para que o restante da 
linha seja executado. Sempre que o va- 
lor de A for menor que o de B, o pro- 
grama saltara para a prbxima linha. O 
exemplo torna evidente a possibilidade 
de um salto condicional: se um conjun- 
to de valores satisfaz a condicao, entao 
o programa faz algo; se e um outro con- 
junto de valores que a satisfaz, entao o 
programa faz outra coisa. 

O uso dos operadores reiacionais nao 
se limita a valores numericos, Eles tam- 
bem podem ser empregados para com- 
parar cadeias. Contudo, isso requer cer- 
ta cautela; caso eontrario, obtem-se re ; 
sultados um tanto quanto estranhos. E 
importante lembrar, em primeiro lugar, 
que a comparacao sempre para no ulti- 
mo caractere da cadeia mais curta. Ou 
seja, se uma cadeia contem onze carac- 
teres e outra contem sete, somente os se- 
te primeiras da cadeia mais longi serao 
com parados com os da cade: 
curta. 

Na reali^de, a comparaca 
com um caractere de cada vez 



mais 



feita 
a es- 




querda para a direita — e aqui se encon- 
tra a explicagao para o surgimento de re- 
sultados estranfoos. Numa comparacao 
numerica, a afirmacao 5>10 e obvia- 
mente falsa mas, numa comparacao en- 
tre cadeias, pode-se ter uma afirmacao 
na forma A$>B$. Se A$ = "5" e 
B$ = "10", o computador compara pri- 
meiro os caracteres a esquerda — 5 e 1. 
Em seguida para, pois para ele nao ha 
mais nada a ser com parade. 

Assim, cemos uma condicao "verda- 
deiro" incorreta, pois 5 e maior que 1, 
mas o computador tgnorou o caractere 
que restou na cadeia mais longa. Esteja 
sempre atento a erros como este. 

Nas cadeias, as letras do alfabeto se- 
guem a seguirue ordem de comparacao: 
"A" < "B" < "C"< "D", e assim por 
diame. Mais uma vez, seja cauteloso, 
pois o computador nao entende o signi- 
ficado dos caracteres. Na verdade, o que 
ele faz e comparar os codigos dos carac- 
teres, o que explicaremos com mais de- 
talhes num proximo artigo. Em conse- 
qiiencia, os espacos e outros caracteres 
que nao sao letras tornam-se tao impor- 
t antes quanto as proprias letras, pois ca- 
da um tcm seu codigo. Esquecer-se dis- 
so resultaria em erro, por exemplo, num 
programa que coloca cadeias em ordem 
alfabetica. 

Se cada cadeia tern a mesma seqiien- 
cia de caracteres, a mais longa sera con- 
siderada a maior, numericamente, Mas 



note que a cadeia mais curia e tomada 
como a maior numa expressao como 
"ABD">"ABCD", pois a compara- 
cao para quando encontra a primeira di- 
ferenca — ou seja, quando os valores 
dos codigos de "D" e "C" sao compa- 
rados. A prioridade, portanto, e pare- 
cida com aquela dos dicionarios ou in- 
dices, onde "amor" vem antes de 
"amoroso" mas depois de "amargo". 



VEHDADEIRO OU FALSO 



Depois de qualquer comparacao, 
oblem-se um resultado — um numero 
inteiro. Este & 0, se a comparacao for 
falsa, e -1 ou 1 (dependendo da ma- 
quina), se for verdadeira, 

Experitnente inserir no seu micro- 
computador, em modo direto (imedia- 
to), a seguinte linha: 

PRINT 6>5 , 5>7 

A expressao da esquerda e verdadei- 
ra e a da direita, falsa. Voce vera apa- 
recer na tela, portanto, o resultado 1 (ou 
-1) e 0. 

Os resultados obtidos numa compa- 
racao podem ser usados em calculos no 
decorrer do programa. Mas tome cuida- 
do com a divisao: qualquer lentativa de 
dividir um numero por resultaria nu- 
ma mensagem de erro. 



0PERAD0RES L0GIC0S 



AND, OR e NOT sao operadores 16- 
gicos que auxiliam na tarefa de decisao 
do IT.. -THEN (pagina 41). Por exem- 
plo: IF (se) isto e verdadeiro AND (e) 
aquilo e verdadeiro THEN (entao) faca 
alguma coisa. Os outros dois operado- 
res seriam usados da mesma maneira. 

Estes operadores — as vezes chama- 
dos de operadores booleanos (inventa- 
dos pelo matematico ingles George Boo- 
le) — podem ser empregados para com- 
parar mimeros ou cadeias, tamo no mo- 
do direto como no modo de programa, 
e obter um "valor verdade" para o que 
se considera uma condicao de teste mui- 
to complexa. Eles oferecem um caminho 
mais curto para o cumprimento de uma 
tarefa que envolveria um amomoado de 
IF... THEN. 



USO DO AND 



Simplificadamente, o operador AND 
pode ser considerado como tendo o sig- 
nificado de E, Numa expressao como: 

IF V>0 AND V<100 

PRINT" PERMITIDO " 

...a mensagem aparece na tela somente 
se V for maior que e menor que 100. 




Num programs, teriamos algo como: 



990 0KAY» 
-1 AND -1 



1 AND -1 AND -1 AND 



HIE] 



990 OKAY-1 AND MES>5 AND MES<10 
AND ANO1900 AND ANCK2001 



QD^ 



990 0KAY--1 AND MES>5 AND MES<1 
AND ANOM900 AND ANO<2001 

Uma linha de programa como esta 
poderia ser empregada para varios fins 
— por exemplo, para verificar se uma 
certa data caiu no inverno, no seculo 
vinte. 

Utiliza-se o AND, no caso, para co- 
mandar quatro testes. Todos devem ser 
verdadeiros para que a variavel OKAY 
permaneca como verdadeira. Nesse tes- 
te de validade, primeiramente ajusta-se 
a variavel OKAY como "verdadeira" 
( - 1 , ou I no Sinclair e Apple). Depois, 
a condicao necessaria e que MES esteja 
entre 6 e 9 e que AND esteja entre 1901 
e 2000 (inclusive). 

Verifiquernos mais de perto o que 
acontece: se as condieoes forem total- 
mente satisfeitas, todas as expressoes 
produzirao urn valor verdadeiro. Em 
conseqiiencia, a linha de programa fi- 
caria assim: 



(nos micros da linha Sinclair e Apple se- 
ria I , em vez de - 1 ) 

Se acrescentarmos PRINT OKAY, 
verificaremos que, de falo, o resultado 
• e — 1, ou seja, verdadeiro. 



US0 DO OR 



Embora o significado de OR (tradu- 
zindo, teriamos OU) seja diferente do 
de AND, ambos podem ser considera- 
dos semelhantcs em relacao a maneira 
como sao usados. 

Vejamos um exemplo simples, que 
emprega OR na comparacao de valores 
de uma dcterminada variavel, 

IF V=8 OB V = 10 PRINT" OKAY " 

A mensagem aparecera na tela se o 
valor de V for 8 ou 10. 

O emprego do OR e muito titil na 
verificacJiQ da validade dos dados in- 
troduzidos no computador via coman- 
do INPUT. Se temos, por exemplo, 
um programa que pergunta pela idade, 
com certeza havera alguem que, so por 
curiosidade, respondera -10 ou 999. 

Para contornar problemas como es- 
se, usamos a seguinte alternativa: 



10 INPUT A 

20 IF A<1 OR A>120 THEN PRINT* 
SEJA SENSATO ": GOTO 10 



USO DO NOT 



O terceiro operador logico de uso 
bastante comum e o NOT. Ele difere um 
pouco dos outros, pots age somente na 
expressao numcrica ou logica que o se- 
gue — AND e OR comparam expressoes 
nos dois lados, mas NOT trabalha so- 
bre um linico valor. 

Veja um exemplo do uso do NOT. 

IF NOT (A>10) THEN 999 

Se traduzfssemos isto para uma lin- 
guagem dodia-a-dia teriamos: "seo va- 
lor de A nao e maior que 10, entao va 
para a linha 999". 

A funcao logica do NOT e converter 
para falsa uma condicao verdadeira, ou 
vice-versa. Poderiamos utiliza-lo, por 
exemplo, como uma chave que inverte 
a condicao falso/verdadeiro obtida no 
resullado de uma operacao anterior. 



TABELAS-VERDADE 



Ouvimos falar de "tabela-verdade' 
sempre que o assunto e operadores 16- 
gicos. Bern, elas sao muito simples. Sua 
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funcao consiste em fornecer uma repre- 
sentacao visual do que acontece com os 
falso/verdadeiro quando usamos AND 
e OR sobre eles. NOT nao pnecisa de ta- 
bela, ja que produz sempre o inverso. 
As tabelas podem assumir varias for- 
mas; uma tipica para o AND e: 

ABC 



-1 


-1 


- 1 


linha 1 


-1 








linha 2 





-1 





linha 3 











linha 4 



Para desvendar o significado da ta- 
bela, basta interpreta-la linha por linha. 
Linha 1 : "Se A e verdadeiro e B e ver- 
dadeiro, entao C tambem e verdadei- 
ro". Linha 2: "Se A e verdadeiro e B 
e falso, entao C e falso". Linha 3: "Se 
A e falso e B e verdadeiro, entao C e fal- 
so". Linha 4: "Se A e B sao ambos I'al- 
sos, entao C € falso". 

A tabela-verdade para o OR e: 

ABC 



-1 


-1 


-1 


iinha 1 


- 1 





-1 


linha 2 





- 1 


-1 


linha 3 











linha 4 



Na primeira linha, le-se: "Se A e ver 
dadeiro e B e verdadeiro, entao C e ver 



dadeiro". Nas linhas 2 e 3 le-se: "Se A 
ou B for verdadeiro, entao C € verda- 
deiro". A linha 4 significa: "Se A e B 
sao ambos falsos, ent&o C tambem e 
falso" 

Apresentamos aqui urn programa 
que usa AND, OR e NOT. Trata-se de 

uma versao simplificada de um progra- 
ma que calcuia a escala de salario eor 
reta para o candidato a um emprego. 

10 INPUT" IDADE" ; I DADE 

20 INPUT" NUMERO DE REFERENCIAS" 

■ REF 

30 MAI0R18-(IDADE>-13) 

40 QUAL-(REF>-5> 

50 IF NOT MAIORlfi AND NOT QUAL 

THEN PRINT "NAO QUALIFICADA" 

60 IF (NOT MAI0R18 AND QUAL) OR (M 

AI0R18 AND NOT QUAL) THEN PR IN 

T "ESCALA 1 DE SALARIO" 

70 IF MAIOR16 AND QUAL THEN PR 

INT "ESCALA 2 DE SALARIO" 

Digamos que o candidato tenha res- 
pondido 20 para idade e 4 para nu- 
mero de referencias. Isso significa que 
(1DADE>=18) e verdadeiro, mas 
(REF> =5) e falso. A pessoa, portan- 
to, e MAIOR18 e NAO QUALificada. 
Na linha 60, encontramos outro conjun- 
to de condicoes que, caso satisfeitas, se- 




lectona a primeira escala de salarios. Po- 
deriamos facilmente modifiear o progra- 
ma para testar mais condicoes, por 
exemplo: verificar se a pessoa tern mais 
de dois anos de experiencia, etc. 



iDEHftil 



0PERAC0ES NUMERICAS 



O uso dos operadores 16gicos nao es- 
ta limitado somente ao IF... THEN. Eles 
tambem podem ser usados com alguns 
tipos de operacoes numericas. Talvez 
voce tenha visto esse tipo de uso em pro- 
gramas anteriores, mas ficou sem saber 
o que estava acontecendo. Na verdade, 
eles nern sempre funcionam da maneira 
6b via, como poderiamos esperar. Ten- 
te isto no modo direto: 

PRINT 375 AND 47 

Se voce esperou que o resultado fos- 
se 422 ou ate mesrno 37547, errou. Na 
verdade, temos 39 como resultado. O 
que estaria acontecendo entao? Somente 
se nos aprofundarmos um pouco no 
funcionamento dos computadores pode- 
remos enlender o que ocorre com o 
AND desse exemplo. 

Em primeiro lugar, asexpressoes (375 
e 47) sao traiisformadas em numeros in- 
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teiros de dois bytes. Na forma binaria, 
ficam assim: 

375 em binario de dois bytes: 

0000000101 11011 1 
47 em binarios de dois bytes: 

0O0O0000O01011I1 

Em seguida, o AND compara bit a 
bit todos os dezesseis bits, produzin- 
do um "1" somente quando, no par de 
bits comparados, ambos forem "1". Da 
direita para a esquerda, os unicos pares 
de bits que satisfazem (produzem "I") 
sao os de ntimeros 0,1,2 e 5. Isto resul- 
ta no numcro binario 00000000001001 1 1 
que, transformado| para decimal, e 39. 
Portanto, 375 AND 47 e igual a 39. 

Agora, tente em modo direto: 

PRINT 375 OR 47 

Como obtivemos 383? Lembre-se da 
propriedade do OR: produz-se "1" 
quando, no par de bits comparados, pe- 
lo menos um dos bits for "1". Obser- 
vando novamente a forma binaria de 
375 e 47, vemos que os pares de bits de 
numero 8, 6, 5, 4, 3, 2, 1 e produzem 
"1" quando comparados pelo OR. Is- 
to resulta no binario 0000000 101111111, 
que equivale ao 383 decimal. 

Com OR e possivel obter o mesmo 
resultado, usando expressoes diferentes. 
PRINT 375 OR 75, por exgrnplo, tam- 



bem resulta em 383. Caso queira verifi- 
car, faca o seguinte: converta para bi- 
nario, compare pelo OR e converta de 
volta para decimal o resultado obtido. 
O valor —1 | (armazcnado como 
FFFFFFFF em hexadecimal — um ar- 
ranjo de bits onde todos valem 1) nao 
se altera quando comparado pelo OR 
com qualquer outro valor. Faca uma ex- 
periencia, tentando no modo direto: 

PRINT -1 OR 375 

O resultado e — 1. 
Vejamos agora uma aplicacao nume- 
rica para o NOT. 

PRINT NOT 10.75 , NOT -11 

O resultado e -11 e 10. O NOT so- 

mou 1 ao valor e depois mudou seu si- 
nal. Note que a parte nao inteira (.75) 
foi ignorada e eliminada, e que o novo 
valor pode ser estimado usando X = 
— (X + 1). Na realidade, o valor e trans- 
formado num inteiro de quatro bytes, 
com todos seus bits invertidos. 




EXISTE LIMITE PARA TAMANHO 
DOS NUMEROS USADOS EM AND E 
Off? 

No TRS-Co!or e MSX, os numeros 
empregados em qualquer operacao 
com AND ou OR tem que estar entre 
-32768 e +32767; caso contrario, 
teremos uma mensagem de erro. 

No Spectrum, Apple e TK-2000 nao 
e possfvel usar numeros nas operacoes 
AND ou OR. 






Os operadores 16gicos destes compu- 
tadores nao fazem compara?ao bit a bit 
dos numeros e, por isso, quase nunca 
sao usados em operacoes numericas. 
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II 




DA AVENTURA 



Chegou a hora de preencher o mundo 
ainda vazio de nossa aventura. 
Voce vera aqui como acrescentar 
ao programa uma lista de objetos 
e, tambem, como manipulates. 



306 



Na ultima secao de Programacao de 
Jogos, dispunharnos de urn conjunto 
completo de posicoes para nossa aven- 
tura e o jogador ja estava capacitado a 
explorar todas elas. As movimentacdes 
do aventureiro, porem, ate agora nao 
tern proposito, uma vez que o mundo da 
aventura esta vazio. Convem, assim, re- 
tomar o planejamento inicial e examinar 
o que se pretendia incluir em cada ponto, 

Veremos, em seguida, como adicio- 
nar ao programa as rotinas que coloca- 
rao os objetos envolvidos na aven- 
tura em seus devidos lugares. 
Outras rotinas permitirao ao 
jogador carregar objetos const- 
go ou detxa-los de larjo. Escre- 
veremos, ainda, uma rotina pa- 
ra listar um inventario de todos 
os itens uttlizados — ela sera 
importante para o jogador, quando 
ele se deparar com um problema e pre- 
cisar verificar exatamente a situacao de 
cada objeto. 

Use o LOAD e carregue o programa 
usado recentemente, deixando-o pron- 
to para receber as novas rotinas. 



OBJETOS 



A maquina precisa saber ires coisas 
sobre cada objeto da aventura: o ruime- 
ro de posicao ondc foi inicialmente co- 
locado, seu nome (ou descricao curia) 
e, finalmente, a descricao detalhada do 
local onde se encontra. As tres informa- 
coes sao necessarias ja que, primeiro, o 
computador devera escolher um objeto" 
adequado a cada posicao. Depois, pre- 
cisara coruar ao aventureiro que obje- 
tos estao nesta posicao — mesrno que 
use uma longa descricao. E, por ultimo, 
tera que dispor de um nome para usar 
em instrucoes e na lista. 

Os numeros de posicao serao coloca- 
dos em uma matriz, o nome do objeto 
em outra, e a descricao longa em uma 
terceira. As ires matrizes serao manipu- 
ladas em paralelo pelo programa — ca- 
da elemento da matriz guardara um es- 
paco equivalente de iniormacao sobre o 
objeto: o primeiro contera o numero da 
posicao, o segundo o nome do objeto e 
I assim por diante. Adicione estas ■linhas 
ao seu programa: 
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L1NHAS DATA 



MAIS VERBOS 



PARA A LISTA DE OBJETOS ■ COMO PEGAR E LARGAR OBJETOS 

I COMOMOSTRARAOJOGADOR 



DESCRIC QES CURTAS E LONGAS 



CQLOCA CAO DOS OBJETOS 



A LISTA DOS OBJETOS 



NAS POSICOES CORRETAS 



QUE CARREGA 




B 



160 REM **PREPARA MATRIZES DE 
OBJETOS** 
170 READ NB 

180 DIM B(NB): DIM BS(NB.14): 
DIM SS(NB,40) 

190 FOR 1-1 TO NB: READ B(I) 
SID ,SS(I) ! NEXT I 
200 DATA 7,4, "SACO" . "HA UM SAC 
DE BOLAS DE GUDE AQUI" 
210 DATA 14,*TIJ0L0* , "TEM UM T 
IJOLO NO CHAO" 

220 DATA 24,"CORRENTE" ,*HA UMA 
CORRENTE PENDURADA SOBRE TR 
ONO" 

230 DATA 0, "REVOLVER", "TEM UM 
REVOLVER NO CHAO" 
240 DATA Q,"OLHO","UM OLHO CRA 
VEJADO DE BRILHANTES ESTA NO C 
HAO" 

250 DATA 22. "LAMPADA", "VOCE ES 
TA DIANTE DE UMA LAMPADA" 
260 DATA 0, "COLETOR", "DE REPEN 
TE SURGE UM COLETOR DE IMPOSTO 
S" 
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160 REM **PREPARA MATRIZES DE O 

BJETOS** 

170 READ NB 

180 DIM OB(NB) ,OBS(NB) ,SIS(NB) 

190 FOR 1-1 TO NB:READ OB ( I ) , OB 

S(I) ,SIS(I) :NEXT 

200 DATA 7,4,SACO,HA UM SACG DE 

BOLAS DE GUDE AQUI 
210 DATA 14,TIJ0LQ,TEM UM TIJOL 
NO CHAO 

220 DATA 24, CORRENTE. HA UMA COR 
RENTE PENDURADA SOBRE TRONO 
230 DATA 0, REVOLVER, TEM UM REVO 
LVER NO CHAO 

240 DATA O.OLHO.UM OLHO CRAVE JA 
DO DE BRILHANTES ESTA NO CHAO 
25 DATA 2 2, LAMPADA, VOCE ESTA D 
IANTE DE UMA LAMPADA 
260 DATA 0, COLETOR, DE REPENTE S 
URGE UM COLETOR DE IMPOSTOS 

Cada linha entre 200 e 260 contem 
tres partes dos dados referentes ao mes- 
mo objeto. A linha 200 apresenta urn 
dado a mais em sua lista. O niimero 7 
— o primeiro do comando DATA — diz 
a maquina quantos conjuntos de dados 
existem. M7 

Uma vez que o nurnero 7 tenha sidoB 
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lido pela linha 170, tres matrizes serao 
dimensionadas para estc tamanho, pela 
linha 180. OB contera a posicao de ca- 
da objeto — urn numero da posicao, ou 
0, se o elemento ainda nao existe (e co- 
nio se fosse a tampa de um bail, que pre- 
cisasse ser aberlo a cada aventura), e 
-1, se esta sendo levado pelo aventu- 
reiro. OB$ contera a descrieao curta e 
SIS a descrieao longa. 

A linha 190 eompletara a matriz com 
os dados das linhas 200 a 260. Os co- 
mandos DATA estao arrumados em 
eonjuntos de ires elementos: um nume- 
ro de posicao, a descrieao curta do ob- 
jeto e a descrieao longa do objeto. 

Para usar a mesma rotina em outras 
aventuras, nao e necessario fazer mui- 
tas alteracoes nessa estrutura, pois, ajus- 
lando a primeira parte dos dados, au- 
lomaticamente os comandos FOR... 
NEXT e as dimensoes das matrizes es- 
tarao ajustados. 



C0M0 P0S1CI0NAR OS OBJETOS 



O programa contem agora todas as 
i n I orma^oes sobre os objetos e as posi- 
coes onde deverao ser coloeados. A ro- 
tina seguinte exibe a descrieao longa do 
objeto quando o jogador esta no local 
adequado. 



360 REM **COLOCA CADA OBJETO E 

M SEU LUGAR** 

370 FOR 1-1 TO NB: IF B(I)-L 

THEN PRINT S5(l) 

380 NEXT I 

EffltHllS 

360 REM**COLOCA CADA OBJETO EH 

SEU LUGAH** 

370 FOR 1-1 TO NBilF OB(I)-L T 

HEN PRINT SIS (I) 

380 NEXT 

Neste estagio, faca uma pequena ah 
leraeao nas linhas 330 e 340: troque GO- 
TO 400 para GOTO 370, As linhas 370 
e 380 checam a matriz que guarda a po- 
sicao do objeto. Se algum numero de 
posicao combinar com a posigao corren- 
te — L — uma descrieao curta sera exi- 
bida apos a descrieao da posicao, Essa 
rotina pode ser usada em outras aven- 
turas, sem alteracoes. 



MAIS VERBOS 



A aventura inclui objetos em dtferen- 
tes posicoes mas, eomo a maquina ate 
aqui nao entende qualquer palavra ex- 
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ceto NORTE, SUL, LESTE e OESTE, 
o pobre aventureiro nao pode fazer na- 
da com eles. Imagine sua frustracao ao 
se ver incapaz de pegar o tao desejado 
saquinho de bolas de gude, ou sem con- 
dicoes de se defender do fiscal da Re- 
ceita! Precisamos fornecer ao computa- 
dor urn vocabulario de palavras que ele 
possa reconheeer, informando o que fa- 
zer com os objetos. Mais tarde, veremos 
como proceder se o jogador entrar uma 
patavra que nao esta no vocabulario 
programado. 

Como o programa trata todas as pa- 
lavras dedirecao cumo verbos, o melhor 
lugar para os verbos, que descrevem o 
que fazer com os objetos, e a matriz RS 
e, para os niimeros correspondentes, R. 

Precisaremos, no entanto, fazer algu- 
mas alteracoes na tinha 130. Os limites 
do FOR. ..NEXT deverao ser mudados. 
Reescreva toda a linha ou use o editor 
da maquina para muda-la. Seja qual for 
sua escolha, a linha 130 sera agora: 



130 FOR K-l TO 19: READ RS (K) , 
R(K) : NEXT K 



descobrir qual desses verbos usar. Voce 
pode facilmente adicionar suas prbprias 
palavras 4s linhas de comando DATA: 
basta trocar o laco FOR.. .NEXT na li- 
nha 130 e colocar outro comando DA- 
TA apos a linha 145. Voce devera fazer 
algumas alteracoes em outros locais do 
programa mas, nas proximas secoes de 
Programacao de Jogos, informaremos 
exatamente como proceder. 



SELECAO DAS ROTINAS ADEQUADAS 



Depois de entrar todos os verbos na 
ultima roiina, o computador precisara 
de outras rotinas que o tornem capaz de 
agir conformc as instrucoes e de fazer 
com que o aventureiro carregue alguns 
objetos. 

A sub-rotina que comeca na linha 
3010, por exemplo, define V$, NS e I 
(um mimcm da matriz R que voce jade- 
ve ter escrito). 

Esta pequena rotina fara com que a 
maquina seja capaz de selecionar a ro- 
tina correta, de acordo com o valor de 
I — que e o significado da entrada do 
aventureiro. 



que a mensagem "EU NAO SEI CO- 
MO" surja na te!a. Se I ttver qualquer 
outro valor, a linha 515 encontra o nti- 
mero de linha correto na matriz G e exe- 
cuta um GOTO. 

HUM 3D ED 

500 REM**SELECIONA OPCAO** 

SOS IF 1-0 THEN GOTO 520 

510 ON I GOTO 1010,1150,1240.13 

10,1410,1460,15 00.1360,1080.155 

0,3110 

520 PRINT: PRINT "EU NAO SEI COM 

O " ;V$:G0TO 370 

Os niimeros apos o ON... GOTO na 

linha 510 iniciam as diversas rotinas. 
Cada valor de I e um verbo diferente ou 
um grupo de verbos. Se 1 = 10, por 
exemplo, a rotina "MATAR" sera se- 
lecionada — e, sendo o decimo mimero 
na linha, ela comecara na linha 1550. 
Se a sub-rotina de verificacao de ins- 
trucao que comeca na linha 3010 nao en- 
contrar uma combinacao de V$ em RS, 
I torna-se 0. Nesse caso, o ON. ..GOTO 
na linha 510 nao tera nenhum efeito. A 
mensagem na linha 520 sera exibida na 
tela. 
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130 FOR K-l TO 19:READ RS(K),R( 
K) :NEXT 

Agora, adicione as linhas 140 e 145: 



140 DATA "NADAR" , "5" , "ESVAZIAR 

" , "6" , "ACENDER" , "7" , "DESISTIR" 
, "8" , "LISTAR" , "9", "MATAR" , "16" 
, "ATIRAR" , "10" , "AJUDAR" , "11" 
145 DATA "PEGAR", "2", "APANHAR" 
, "2", "CARREGAR" , "2" , "COLOCAR" , 
"3" . "DEIXAR" . "3" , "LARGAR" , "3" , 
"PUXAR"."4" 

QDMS3D5I 

140 DATA NADAR, 5, ESVAZIAR. 6. ACE 

NDER,7,DESISTIR,8.LISTAR,9,MATA 

R, 10, ATIRAR, 10. AJUDAR, 11 

145 DATA PEGAR, 2. APANHAR, 2 ,CARR 

EGAR , 2 , COLOCAR , 3 , DEIXAR , 3 , LARGA 

R , 3 , PUXAR , 4 

A cada verbo corresponde um mime- 
ro . Verbos com o mesmo mimero pos- 
suem o mesmo significado e, portanto, 
o mesmo efeito. Planejamos o progra- 
ma de modo que o computador reconhe- 
ca, por exemplo, PEGAR, APANHAR 
e CARREGAR, evitando que o aventu- 
reiro gaste seu precioso tempo tentando 



O Spectrum nao tern o comando 
ON. ..GOTO, usado em programas pa- 
ra outros eomputadores. As linhas (Jo 
programa, portanto, tern que ser um 
pouco diferentes. 

.la temos uma matriz, G, que content 
mimcros dc linha para as descrigoes de 
posicao. Os numeros dc linha nccessa- 
rios as novas rotinas podem ser adicio- 
nados a esta matriz. 

Por isso, a linha 30 ficou assim: 

30 FOR N-l TO 4: FOR M-l TO 
11: READ G{M,N>: NEXT M: NEXT 
N 

E e tambem pelo motive acima que 
essa linha content todos os numeros de 
linha que precisaremos (veja a explica- 
cao completa no artigo da pagina 270). 

70 DATA 1010,1150.1240,1310, 

1410,1460,1500,1360.1080,1550 

,3110 

Agora, adicione a rotina que solucio- 
nara a rotina correta, de acordo com o 
valor de I: 

500 REM **SELECIONA OPCAO** 
510 IF 1-0 THEN GOTO 520 
520 PRINT '"EU NAO SEI COMO "; 
VS: GOTO 370 

Se a sub-rotina de verificacao de ins- 
trucao que comeca na linha 30 1 nao en- 
contrar uma combinacao para V$ em 
R$, I torna-se zero e a linha 5 10 faz com 



COMO PEGAR OS OBJETOS 



Ja temos uma rotina para quando I 
for igual a I, o que ocorre quando o 
aventureiro da uma ordem. Ela esta en- 
tre as linhas 1010 e 1060. 

Quando I —2, o aventureiro digitou 
uma rotina "PEGAR" — ou seja, as 
palavras PEGAR, APANHAR ou 
CARRKGAR. Esta rotina, apresentada 
a seguir, permitira ao aventureiro pegar 
e conservar consigo qualquer objeto que 
esteja na posicao, 



1140 REM **PEGAR** 

1150 FOR G-l TO NB 

1160 IF NS-B$(G, TO LEN NS) THE 

N GOTO 1190 

1170 NEXT G 

1180 PRINT NS ;"???": GOTO 330 

1190 IF B(G}--1 THEN PRINT "VO 

CE PEGOU" : GOTO 330 

1200 IF B(G)OL THEN PRINT "NA 

O ESTA AQUI": GOTO 3 30 

1210 PRINT "OK": LET BIG)— 1 

1220 GOTO 330 
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1140 REM**PEGAR«* 
1150 FOR G-l TO NB 
1160 IF INSTRtOBS(G) ,NS)=1 THEN 
GOTO 1190 



■ 
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1170 NEXT 

1180 PRINT NS ;"???": GOTO 330 

1190 IF OB(G)=-l THEN PRINT "VO 

CE PEGOU* :GOTO 330 

1200 IF OB(G)OL THEN PRINT "NA 

ESTA AQUI":GOTO 330 

1210 PRINT "OK":OB(G)=-l 

12 20 GOTO 330 
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1140 HEM ** PEGAB ** 

1150 FOR G - 1 TO NB 

1160 IF NS - LEFTS <OBS (G) . L 

EN (NS)} THEN 1190 

1170 NEXT 

1180 PRINT NS;" 77"; GOTO 330 

1190 IF GB(G) - - 1 THEN PRI 

NT "VOCE PEGOU": GOTO 330 

1200 IF OB(G) < > L THEN PRI 

NT "NAO ESTA AQUI": GOTO 330 

1210 PRINT "OK":OB{G) - - 1 

1220 GOTO 3 30 

As linhas 1150 a 1170 procuram a 
matriz contcndo a descricao curta — B$, 
no caso do Spectrum, e OB$ nos denials 
computadores — do objeto que o aven- 
tureiro ehamou. Se este e encontrado, 
o programa pula para a linha 1 190. Ca- 
so contrario, a linha 1 1 80 exibe o nome 
do objeto que o aventureiro digitou, se- 
guido de pontos de interrogacao. 

Depois de encontrar o nome do ob- 
jeto, duas verificacoes sao Teitas. A li- 
nha 1 190 checa o elemenlo da matriz de 
posicao do objeto — B ou OB — , para 
saber se ele ja foi levado. Em caso afir- 
iTiativo (o valor do elemento da matriz: 
i -!>, aimensagem "VOCE PEGOU" 
sera exibida, 

A linha 1200 verifica se o objeto esta 
presente, examinando novamentea po- 
sicao da matriz. Se ele nao estiver pre- 
sente, o programa exibira a mensagem 
"NAO ESTA AQUI". Voce podera tro- 
car essa mensagem, se ela nao servir pa- 
ra a sua aventura. 

Caso o objeto nao tenha sido levado 
e se encontre na mesma posicao que o 
aventureiro, a linha 1210 exibira "OK" 
e o elemento na matriz de posicao de ob- 
jetos sera mudado para -1. 



C0M0 DEIXAR 0BJET0S DE LAO0 



A rotina "DEIXAR" faz o contra- 
rio. Ela permits que o jogador abando- 
ne qualquer dos objetos que pegou. 



1230 REM "DEIXAR** 
1240 FOR G-l TO NB 
- 1D 1250 IF NS-B${G. TO LEN NS) THE 
I N GOTO 1270 



1260 NEXT G: PRINT N$;"777": GO" 

TO 330 

1270 IF B(G)<>-1 THEN PRINT "V 

OCE NAO PODE LARQAR QUE NAO T 

EM": GOTO 330 

1280 PRINT "OK"; LET B(G)-L 

1290 GOTO 330 
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1230 REM**DEIXAR** 
1240 FOR G=l TO NB 
1250 IF INSTR(0B$(G) ,NS)=1 THEN 

1270 
1260 NEXT:PRINT NS : "???" : GOTO 3 
30 

1270 IF 0B(G)<>-1 THEN PRINT "V 
OCE NAO PODE LARGAR QUE NAO T 
EM": GOTO 330 
1280 PRINT "OK":OB<G)=L 
1290 GOTO 330 
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1230 REM ** DEIXAR ** 

1240 FOR G - 1 TO NB 

1250 IF NS - LEFTS (08$ (G), L 

EN (NS)) THEN 12 70 

1260 NEXT : PRINT NS ; " ??": GO 

TO 330 

1270 IF OB{G) < > - 1 THEN 

PRINT "VOCE NAO PODE LARGAR O Q 

UE NAO TEM"; GOTO 330 

1280 PRINT "OK":OB(G) - L 

1290 GOTO 330 

Seu funcionamento se assemelha 
muiioao da rotina "PEGAR", vista an- 
teriormente. A matriz de desericao cur- 
ta e mais uma vez procurada — agora 
nas linhas 1240 a 1260. Se o objeto pe- 
dido estiver na matriz, a linha 1270 ve- 
rifies se esta sendo levado pclo aventu- 
reiro. Se nao estiver, o cqmputador exi- 
bira a mensagem "VOCE NAO PODE 
LARGAR O QUE NAO TEM". 

Se o aventureiro estiver carregando 
o objeto, a linha 1280 exibe "OK" e o 
elemento apropriado na matriz de posi- 
cao de objetos — OB ou B — e ajusta- 
do. Ele toma, entao, o numero da posi- 
cao corrente — L — , ja que -1 signifi- 
ca que o objeto estava sendo carregado. 



A LISTAGEM DO SAQUE 



O aventureiro distraido ficara muito 
grato ao obter uma lista de todos os ob- 
jetos que carrega. 

Aqui esta uma rotina que faz exata- 
mente isso: 



1070 REM **LISTAR** 
1080 PRINT "VOCE TEM 
-0 



LET IN 



1090 FOR G-l TO NB 

1100 IF B(G)--1 THEN PRINT TAB 

10;B$(G) : LET IN-IN+1 
1110 NEXT G 

1120 IF IN-0 THEN PRINT "NADA" 
1130 GOTO 330 
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1070 REM**LIBTAR** 
1080 PRINT "VOCE TEM " ; : IN-0 
1090 FOR G-l TO NB 
1100 IF OBfG)— 1 THEN PRINT TAB 
(10)OBS(G) :IN-IN+1 
1110 NEXT 

1120 IF IN-0 THEN PRINT "NADA" 
1130 GOTO 330 
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1070 REM ** LISTAR ** 

1080 PRINT "VOCE TEM " ; : IN - 

1090 FOR G - 1 TO NB 

1100 IF OB(G) - - 1 THEN PRI 

NT TAB( 10) ;OB$(G) : IN - IN + 1 

1110 NEXT 

1120 IF IN - THEN PRINT "NA 

DA" 

1130 GOTO 330 

"VOCE TEM" sera exibido pela li- 
nha 1080, antes que se inicie a listagem 
dos objetos. O laco FOR.. .NEXT che- 
ca, urn a um, os elementos da matriz de 
posicoes de objetos. Dessa vez, os ele- 
mentos importantes sao os que concern 
-I, indicando que o objeto esta sendo 
carregado. Se o valor de qualquer um 
dos elementos for - 1 , a desericao cur- 
ta do objeto sera, entao, exibida. O con- 
lador do inventario I sera incrementa- 
do de 1. 

Se nenhum objeto estiver sendo car- 
regado, o contador IN continua em ze- 
ro e a linha 1 120 exibe "NADA", em 
vez da lista de objetos. 

As rotinas "PEGAR", "DEIXAR" 
e "LISTAR" podem ser usadas como 
estao, se NB For definido em uma roti- 
na anterior. 

Agora, o programa esta pronto pa- 
ra receber as rotinas finais, que serao 
apresentadas num proximo artigo, Eias 
se referem ao fiscal da Receita, ao ti- 
jolo, a lampada, a proeura do globo 
ocular, ao termino da aventura e, fa- 
nalmente, a instrucao descrevendo o ob- 
jeto da busca. 

Se voce fizer uma experiencia, execu- 
tando o programa neste estagio, vera 
que, enquanto parte dele funciona, al- 
guma coisa eslranha acontece. A razao 
para isso e que o programa requer um 
numero de rotinas que ainda nao exis- 
te. Se voce entrar certas palavras, o pro- 
grama tentara desvia-las para linhas ine- 
xistentes. 
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MENSAGENS OE ERROS 
ORIENTACOES OBSCURAS 
OS ERROS MAIS COMUNS 
TESTE SUA HABIUDADE 
" EM DETECTAR ERROS 



Nenhum programa esta livre de erros, 
Aprenda a localiza-los e habitue-se a 
corrigi-ios na medida em que aparecem. 

Esta e, sem duvida, a melhor maneira 
de evitar problemas mais serios. 



Nenhum programa, de qualquer ta- 
manho, que esteja sendo desenvolyido 
ou simplesmente copiado de uma fista- 
gem, esta completamente livre de erros 

— os "grilos". Estes aparecem pelas 
mais diversas razoes e comprometem o 
programa em graus diferentes. 

Os erros mais serios podem impedir 
que um programa seja rodado. Outros, 
simplesmente, permanecem ocultos, ate 
que eerta rotina ou seqiiencia de entra- 
das os revele. Por exemplo, em um jo- 
go de aventuras, tudo pode funcionar 
perfeitamente ate que o jogador tome 
um determinado caminho, carregando 
uma faca — e cai num buraco que nao 
deveria estar ali. Ou, em um programa 
de contabilidade, pode-se de repente en- 
contrar um erro enorme, que afeta ape- 
nas as entradas feitas na segunda sema- 
na de dezembro. 

O primeiro tipo de erro deve ser com- 
pletamente eliminado antes da utilizacao 
do programa. 

E o segundo? Bern, o ideal seria 
procura-Ios sistematicamente, para evi- 
tar surpresas. A melhor maneira de faze- 
lo e testar cuidadosamente o programa 

— o que inclui tentar o inesperado, co- 
mo entrar uma seqiiencia "impossfvel" 
de entradas. Para auxiliar nesse tipo de 
tarefa, existem rotinas muito uteis, es- 
peciais para deteccao de erros. Logo fa- 
laremos sobre elas. 



MEMSAGENS DE ERRO 



Todos os computadores domesticos 
produzem mensagens de erro, de um ti- 
po ou de outro. Voce ja deve ter encon- 
trado varias delas, desde que comecou 
a utilizar o computador. 

Tais mensagens variam de cddigos 
simples de nurneros e letras a descricoes 
cornpletas que deixam poucas diividas 




sobre a natureza do erro — ainda que, 
as vezes, nao apontem diretamente o 
proprio erro. 

Maiores detalhes sobre as mensagens 
de erro podem ser encontrados no ma- 
nual do seu computador. Consulte-o 
sempre que nao compreender o signifi- 
cado exato de alguma delas. So depois 
comece a trabalhar na correeao do erro. 



"DEPURE" PROGRAMA 



Para evitar problemas maiores, 6 
muito importante localizar e corrigir ca- 
da erro na medida em que aparece, Nao 
deixe um erro permanecer em um pro- 
grama, mesrno que este pareca rodar sa- 
tisfatoriamente. 

Caso contririo, sempre havera uma 



chance de que o erro apareca mais tar- 
de, numa hora cn'tica. A eonseqiiencia 
podera ser um desastre para o progra- 
ma, o que resuftara em muita digitacao 
extra, ou — pior ainda — na perda dos 
dados disponiveis, se o programa for co- 
locado em uso efetivo. No final, voce 
nao tera mais a oportunidade de resol- 
ver o problema. 

Corrigir os erTOS, ou seja, "depurar" 
o programa, pode se tornar uma tarefa 
terrivelrnente complicada se voce nao se 
empenhar em isolar cada problema de 
modo sistematico. Ao digitar um pro- 
grama pronto ou ao desenvolver o seu 
proprio, e muito provavel que cometa 
mais de um erro. Trate cada um indivi- 
dualmente — ou seja, localize e corrija 
o primeiro deles e so depois se dirija ao | 
seguinte. 
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TABELA DE hOCALIZAC:AO 



Esta 4 uma linha de mensagens de 
erros e comunkados para cada com- 
putador. Quando uma entrada for 
precedida por um asterisco (*), o er- 
ro provavelmente se encontra na li- 
nha cujo niimero estd indicado na 
mensagem ou, entao, 4 o resultado 
i media to de uma entrada direia ou de 
uma atividade (tat com SA VE). Sem- 
pre existem excecoes, especialmente 
quando uma variavel, que e a causa 
de um erro em determinada linha, 
tern seu valor designado em uma li- 
nha previamente executada. 

Quando digitar os programas, se- 
ja cuidadoso ao incluir espacos. 



NEXT sent FOR. varidvel inexisren- 
te, Erro de indice, "Memdria totada, 
"Excede area de video, Niimero ex- 
cede limit e, RETURN sem GOSVB, 
*Fim de arauivo, *Stop executado, 
Argumento invdlido, Inteiro excede 
limite, *Erro de siniaxe, "BREAK- 
CONT repeie, Fim de dados, "Nome 
invdlido, *Sem memdria dispomvel, 
STOP em INPUT, FOR sem NEXT, 
Periferico invdlido, "Cor invdlido, 
BREAK-CONT prossegue, R4MT0P 
vdlido. *Comando perdido. "Canal 
in vdlido, FN sem DEF, Erro de pa- 
r a metro, *Erro de leltura. 

El 

/O, AO, BS, *CN, *DD, *DN, DS, 



EC, ED, FM, "ID. IE, *IO, LS, NF, 
NO, OD, OM, OS, OV, RG, *SN, 
"ST, *TM, "UL. 




HJ 



*"CONT" /LEGAL, "DIVISAO 
POR ZERO, *DIRETO ! LEGAL. 
* VA L OR I LEG A L, ' 'NEXT ' S%M 
■TOR", FIM DE DATA, FALTA 
MEMORIA, "FORMULA COM- 
PLEX A, "S/ESPACO, "REDI- 
MENSIONAR, "RETURN" SEM 
••GOSUB". "STRING" LONGA, 
INDICE I LEGAL, "SINTAX ER- 
RO, "TIPO INCOMPAT, "LINHA 
INDEFINIDA, FUNCAO INDEF. 



tfU 



"NEXT" SEM "FOR", "ERRO 
SINTAXE, "RETURN" SEM "GO- 
SUB", SEM •'DATA", FUNCAO 
I LEGAL, 'OVERFLOW, FALTA 
MEMORIA, "Nr LINHA INEXIS- 
TENTE, INDICE FORA DO LIMI- 
TE, "DIM" REDEFINIDO, "DIVI& 
SAO POR ZERO, DIRETO /L#v 
GAL, TIPO DESIGUAL. "FALTA 
AREA *"STRING", ""STRING" 
LONGA, ""STRING" COMPLE- 
XA, NAO CONTJNUO! FUNCAO 
NAO DEF! N! DA, ERRO/PERIFE- 
RICO, ERRO/VERIR, ''RESUME", 
"RESUME" SEM "ERROR" "FAL- 
TA OPERANDO, "LINHA MUITO 
LONGA. 



LOCALIZACAO DOS ERROS 



Nao se esqucca de que o erro mais 
simples e, em geral, o mais diftcil de ser 
isolado, e — ao contrario do que pode- 
ra pensar — quase sempre e a linica cau- 
sa da dificuldade em rodar um progra- 
ma adequadamente. 

Muitos problemas podem ser evita- 
dos com a utilizacao de um conjunto de 
rotinas para depurar os programas. 
Existem algumas lecnicas bem simples 
e caminhos muito eficazes. 

Para comecar, mukas mensagens de 
I erro apontam diretamente para a linha 
na qua! ocorre o erro. Isso inclui o 



mais comum deles — KRRO DE SIN- 
TAXE — , alem de varios outros 
(veja a tabela). Alguns, porem, sao me- 
nos evidentes, e indicam erros em linhas 
que estao perfeitamente corretas. Voce 
pode obter uma mensagem como E Fim 
de dados 10:2 (o exemplo e do Spec- 
trum, mas outros computadores apre- 
sentam mensagens semelhames). Apa- 
rencemente, trata-se de uma indicacao 
de que o erro se encontra na segunda 
instrucao da linha 10. Na verdade, a se- 
gunda instrucao da linha 1 diz ao com- 
putador para ler alguns dados, o que po- 
deria aparecer tambern na linha 200 ou 
ate mesmo na linha 2000. For outro la- 
do, talvez o erro esttvesse nas linhas de 



dados, e nao na linha 10. 

Esse tipo de erro e, evidentemente, 
muito mais dificil de se locafizar, ]a 
que naoexistenenhumaindicacaopreci- 
sa de onde se encontra o verdadeiro 
problema. 

As mensagens de erro, 1 que aponta 
linha, revelam apenas que u problema 
eve estar relacionado a maneira como 

"^e executou uma entrada em determina- 
da linha do programa. 
V inicic efetuando uma listagem do 
programa a partir de um ponto antes do 
nurnero da linha sugerida na mensagem 
de erro. Algumas vezes, e util listar a 
propria linha, separadarnente e um pou- 
co alem das outras, se isso for possivel 
cm seu computador. 

Antes de mais nada, verifique se vo- 
ce nao cometeu nenhum tipo de erro li- 
teral — ou seja, se escreveu algo de mo- 
do errado ou se utilizou uma letra no lu- 
gar de um niimero (ou vice-versa). Seja 
especialmente cuidadoso em relacao aos 
espacos e a pontuacao. E procure ver se 
falta algum caractere — e muito facil. 
por exemplo, esquecer um parentese em 
uma seqiiencia que utilize varies deles. 
Examine com atencao as palavras-cha- 
ve, letra por letra, pois tambern e bas- 
tante comum a inversao da ordem dos 
caracteres. 

gg^Ds erros literais costumam ser uma 
causa freqiiente de problemas, pertur- 
bando o desenvolvimento do trabalho 
tanto de iniciantes quanto de especia- 
l listas. 



LINHA POR LINHA 



Quando voce sabe que o erro estd em 
determinada linha, e esta content duas 
instrucSes, precisara descobrir qual de- 
las apresertta o problema. O melhor me- 
todo para isso e colocar uma instrucao 
STOP em uma nova linha, imediata- 
mente apris a que foi indicada pela men- 
sagem de erro. Em seguida, entre uma 
instrucao REM bem no inicio da ultima 
declaracao e rode novamente o progra- 
ma — se nenhum desastre tiver aconte- 
cido ate este ponto, e claro. Caso o er- 
ro de sintaxe nao apareca, voce sabera 
que ele se encontra na ultima de- 
claracao. 

Pode-se utilizar um metodo parecido 
para descobrir, entre algumas linhas, a 
que contein o erro. Basta inserir suces- 
sivamente, entre cada linha, uma linha 
extra com a instrucao STOP, como mais 
tarde explicaremos em detalhe. 

O metodo, porem, nao pode ser am- 
pliado com seguranca para as linhas 
com instrucoes miiltiplas, pots qualquer 
coisa antes do REM e depois da proxi- 



ma linha do programa sera ignorada. 
Nestes casos, deve-se dividir a linha em 
seus componentes e verificar isoiada- 
mente um por um. Cada instrucao po- 
de ser colocada em uma linha adicional. 
O procedimerito e simples e bastante 
util, sobretudo quando a situaeao pare- 
ce muito eonfusa e obscura. 

Rode o programa mais uma vez pa- 
ra ver qual das novas linhas do grupo 
causa a mensagem de erro e retire-a do 
programa. 



PARTE POR PARTE 



Dedaracoes individuals muito longas 
apresentam um lipo diferente de proble- 
ms e, talvez, a melhor maneira de uni- 
las seja determinar o valor real de cada 
parte delas. 

Mais uma vez, considers a hipotese 
de ter comeiido um erro banal, antes de 
buscar interpretacoes complicadas. Se 
passive], reescreva a linha defeituosa do 
programa, de modo que obtenha um mi- 
mero de linhas separadas que possam ser 
tratadas individualmente. E.sta e uma 
boa razao para se deixar espacos enire 
os mimeros de linhas. 



Onde voce nao puder fazer isto, 
"exploda" mentalmente a instrucao 
e pergunte-sc o que cada enirada es- 
ta fazendo naquele determinado pon- 
to do programa. Tente cakular quais 
os valores que foram obtidos para lo- 
das as variaveis em uso neste exato 
ponto. 

Com o erro de sintaxe, os valores de 
qualquer variavel em acao sao irreievan- 
tes — eles nao poderao ser a causa do 
problema. Assim, mude a linha a von- 
tade, mesmo que isso limpe as variaveis. 

Se estiver lidando com um problema 
muito obscuro, o valor (ou valores) real 
da variavel podera forneceros indicios. 
Utilize o coriiputador para imprimir es- 
ses indicios no modo direto (imediato), 
antes de efetuar qualquer modificacao 
no programa. 

Simultaneameme, verifique o nome 
da variavel, para se certificar de que es- 
ta correto. Suponhatnos que voce habi- 
tualmentc utilize a variavel D para um 
loop de airaso de tempo. E bem prova- 
vel que a introdu?a no programa sem 
qtterer, quando estiver copiando uma 
listagem e se deparar com um loop pa- 
recido, mas que utiliza uma variavel di- 
ferente — um T, por exemplo. 



ORIENTACOES OBSCURAS 



Muitas mensagens de erro nao forne- 
cem indicacoes claras do mimero da li- 
nha errada. Em vez disso, simplesmen- 
te indicam onde um erro teve algum efei- 
to. Quando isso ocorre, pode ser dificil 
apontar a causa com precisao. 

Mas existem excecoes. Como no 
exemplo acima, as mensagens DATA de 
erro sao exibidas em uma linha que con- 
tent uma instrucao incluindo READ 
quando, na verdade, o proprio erro se 
encontra na linha de instrucao DATA. 

Outras mensagens sao menos eviden- 
tes (veja a tabela). No entanto, a maio- 
ria delas rcfere-se a erros que ocorrem 
antes do numero das linhas apostrofa- 
das na execucao do programa. Essa e 
uma distincao imporlante, pois o erro 
pode estar, de Cato, em uma sub-rotina 
situada antes ou depois da linha indica- 
da na declaracao de erro. Assim, uma 
variavel podera apanhar um valor incor- 
reto bem antes de idcntifica-lo. 

A melhor maneira de lidar com erros 
menos obvios e examinar a acao do pro- 
grama. Inicie imprimindo o valor de ca- 
da variavel. Se voce possuir uma impres- 
sora conectada ao computador, podera 




efetuar uma copia deles. Mas e facil uti- 
lizar o comando direto PRINT ou qual- 
quer abreviacao adequada, seguida pe- 
io nome da variavel — tal eomo PRINT 
V — e anotar os valores. 

Examine, depois, como as variaveis 
funcionam em relacao uma a outra. No- 
vamente, podera ser bastante util divi- 
dir uma linha muito longa do programs 
em linhas mais curtas, cada qual conten- 
do uma unica instrueao, 

Pesquise cada variavel a partir desse 
pernio do programa, para comparar sen 
valor real (o numero que voce anoiou) 
com o que poderia ter se o programa ro- 
dasse eorretamente. 

Em urn programs muito externa, o 
trabalho sera dificil e demorado. Parte 
dele podera ser evitada se voce rodar o 
programa em varios estagios distintos — 
imediatamente antes e depois de um de- 
terminado conjunto de entradas, por 
exemplo. Observe, entao, as modifica- 
coes dos valores das variaveis. 

A nao ser que voce esteja familiari- 
zado com o uso das teclas <RUN/ 
STOP> ou < BREAK > do seu com- 
putador, e aconselhavel introduzir no 
programa linhas provisorias contendo a 
declaracao STOP. Mas note que, com 
esse procedimento, voce lirnpara a me- 
mdria e, assim, devera rodar o progra- 
ma mais uma vez — o que nem sempre 
sera possivel. 

Quando o programa parar, imprima 
os valores das variaveis e, em seguida, 
tecle a instrueao para continuar ate o 
proximo STOP, 



ERROS COMUNS 



Entre as causas mais comuns de er- 
ros de programa estao as falhas come- 
tidas no eodigo de entrada, a partir de 
listagens impressas. 

O problema especifico e gerado so- 
bretudo pela confusao entre caracteres 
parecidos: casos tipicos sao as letras J 
em tipo minuseulo, I em tipo maiiiscu- 
lo e o numero 1, assim como a letra O 
e o, numero 0. 

E facil tarnbem confundir, sobretu- 
do em listagens de pouca qualidade, dois 
pontos com ponto e virgula, e ponto fi- 
nal com virgula. O ponto e virgula e uti- 
lizado para a formataeao da exibicao, 
e o uso acidental de dois pontos (sinal 
que indica o fim de uma declaragao), co- 
mo no exemplo abaixo, podera resultar 
simplesmente em uma mensagem de 
"ERRO DE SINTAXE**: 

95 INPUT "ENTRE SEU NOHE":NS 

A confusao entre o ponto final e a 




virgula, porem, e ainda mais dificil de 
se identificar. Veja estas duas linhas: 

1000 DATA 12.4,6,7,8,13,1.7 
1000 DATA 12.4,6.7,8.13,1.7 

Tanto uma quanta outra pareceriam 
con-etas, ate mesmo depois de um mi- 
nucioso exame. Note que exislcm seis 
kens de dados na primeira linha, mas 
apenas cinco na segunda. 

Este poderia ser um indicio de erro, 
caso as outras declaracoes DATA eon- 
tivessem um numero identico de itens. 
Incidentalmente, portanto, teriamos um 
meiodo simples de realizar pelo menos 
uma verificacao. 

Se uma mensagem de erro exibiu 



"FIM DE DADOS", nao existem itens 
de dados suficientes; portanto, a segun- 
da linha poderia estar incorreta. 

A presenca de muitos itens, por sua 
vez, nao provoca uma mensagem de er- 
ro; simplesmente assinala os valores in- 
corretos para a variavel READ ou, ain- 
da, o valor incorreto para algumas das 
variaveis, se uma outra linha de dados 
for curta. 

Uma mensagem de erro pode tarn- 
bem resultar em uma linha READ ou 
uma linha de calculo, se o tipo incorre- 
to do valor for assinaiado para uma va- 
riavel READ. 

O uso da letra O em vez do numero 
— ou vice-versa — pode acarretar um 
efeito identico. 



ESPACOS 



Deve-se deixar espa^os em determi- 
nados lugarcs do programa, mas 
elimina-los toialmente em outros — o 
problema, quase sempre, e reconhecer 
que algotao "transparente" seja a causa 
de um problema. 

Os espacos utilizados por razoes es- 
teticas — para separar, por exemplo, 
uma declaracao impressa de ouira ou 
tornar as listagcns um pouco mais cla- 
ras — nao ocasionam erros se forem 
omitidos. Mas suspeite deles se a exibi- 
cao na tela parecer achatada ou tiver 
partes superposlas. 

Uma mensagem de erro ocorre se, 
aeidentalmente, voce incluir um espaco 
entre certas palavras-chave e o argumen- 
to que as segue colocado entre parente- 
ses. Por exemplo: TAB(n) esta correto; 
TAB (n). nao. As condicoes que deter- 
minam erros relacionados a espaco va- 
riam de um computador para outro, 
mas vale a pena verificar esse aspecto se 
nao detectar falhas de outro tipo. 



ERROS ESPECiFICOS 



Cada computador apresenta um tipo 
peculiar de erro, quase sempre relacio- 
nado a imperfeicoes — e nao eiros, pro- 
priamente — no sistema de operacoes ou 
no proprio hardware. Com frequencia, 
a falha se encontra no pr6prio BASIC 
e certas palavras-chave nao se compor- 
tam adequadamente sob determinadas 
circunstancias. Algumas das mais co- 
muns estao detalhadas aqui, e serao 
apontadas em INPUT sempre que pos- 
sam causar problemas inesperados, ca- 
so nao se tome o devido cuidado. 



FACA UM TESTE 



Eis aqui um teste para a sua habili- 
dade em detectar erros e uma oportuni- 
dade para cotocar em pratica tudo o que 
aprendeu. Os programas que se seguem 
estao cheios de erros — do tipo que po- 
deria ser introduzido durante a copia de 
uma listagem ou na adaptacao de um 
programa sabre cuja acao nao se tern 
um conhecimento complete. Eles osci- 
lam de erros simples de digitacao e sin- 
taxe a erros na estrutura do pr6prio 
programa. 

A versao correta do programa foi pu- 
blicada na pagina 195 de INPUT. Adi- 
cionamos aqui uma linha extra para fa- 
zer com que o programa seja rodado no- 
vamente. Mas nao olhe o programa ori- 
ginal ate que tenha etaborado o seu pro- 
prio caminho para localizar os erros. 



O programa e um exemplo bem cur- 
to de como se deve distribuir os objetos 
entre os compartimentos de um jogo de 
aventuras, A lista dos objetos e lida a 
partir de uma lista de dados organiza- 
dos em um conjunto; os niimeros dos 
compartimentos estao armazenados em 
outro conjunto. A parte principal do 
programa — as linhas 70 a 100 — de- 
signa, aleatoriamente. um objeto para 
cada compartimento, verifica se todos 
foram utilizados e se ha apenas um em 
cada compartimento. A linha 110 sim- 
plesmente imprime o resultado. Pelo 
menos e isto o que programa deveria 
fazer se estivesse correto. 

£l provavel que voce identifique va- 
rios erros imediatamente, por meio da 
simples leitura do programa. Tentecon- 
sertar todos os que puder e, entao, 
quando esliver com o programa limpo, 
digite-o em seu computador e experi- 
mente roda-lo. Certamente restarao al- 
guns erros escondidos que voce nao 
identificou na primeira vez. 

Se nao conseguir resolver tudo, vol- 
te a pagina 195; de qualquer maneira, 
a versao correta da ultima linha devera 
ser elaborada por voce. E tenha o cui- 
dado de nao introduzir novos erros 
quando estiver corrigindo os outros! 
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LET 


0-14 






20 


DIM 


a$(q.7) 


: DIM a(v) 


30 


FOR 


z-1 TO 







40 


READ aS(fl) 






so 


LET 


a(z)-z 






70 


POR 


x-g TO 


1 STEP -1 




80 


LET 


q-INT (RND*X)+1 




90 


LET 


t-a(X) : 


LET a{x) 


-a(q) : 


LET a { 


<a)-T 






100 


NEXT X 






110 


FOR 


t-1 TO 


g: PRINT 


"A sal 


■ it 


tern" 


:aS(a{t)): NEXT 


t 


120 


DATA corda. 


"espada" , 


"eapan 


ador" , "faca" , "revolver" , 


"chave 


""tocha" 


, "carro" , "lanterna" , "« 


achado" , 


"boBba" 


."llvro". 


"aerom 


odelo"," 


robo" 






130 


GOTC 


10 







H1E1M 



10 LET G - 14 

20 DIM A${G) ,A(G) 

30 FOR Z - 1T0G 

40 READ AS(G) 

50 LET A(Z) - Z 

70 FOR X - G TO 1 STEP - I 

80 LET Q - INT ( RND U) * X) 

+ 1 
90 LET T - A<X): LET A(X> - A( 
Q) ; LET A{Q) - T 
100 NEXT X 
110 FOR T - 1 TO G; PRINT "A S 



ALA";T"TEM**;A$(A) (T) ) : NEXT T 
120 DATA CORDA. ESPADA, ESPANA 
DOR , FACA , ARMA , CHAVE , TOCHA . CARRO 
, LIQU IDIFICADOR , SOFA, BOMBA , LIVR 
0,AER0M0DELO,ROB0 
130 GOTO 10 

Para o MSX, adicione a linha abaixo: 

5 R - RND ( - TIME) 

DD 

10 LET G-14 

20 DIM A$(G) , A{G) 

30 FOR Z-1 TO G 

40 READ AS (Gj 

50 A(Z)-Z 

70 FOR X-G TO 1 STEP-I 

80 Q-RND(X) 

90 T-A(X) :A(X)-A(OJ ;A(Q)-t 

100 NEXT X 

110 FOR T»l TO G:PRINT"NA SALA" 

;T"HA"AS(A) (T> ) :NEXT T 

120 DATE CORDA, ESPADA, ESPANADOR 

. FACA , ARMA , CHAV E , TOCHA , CARRO , LA 

NTERNA , MACHADO , BOMBA , L IVRO , AERO 

MODE LO. ROBO 
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O ZX-81 nao tern muitos recursos 
graficos. O Apple, embora os tenha com 
boa qualidade e resolucao, define as fi- 
guras inoveis por meio de um processo 
bastame complicado. 

Com o codigo de maquina podemos 
obter alguns efeilos visuais no ZX-81. 
Um programa editor facilitara a criacao 
de figuras m6veis no Apple. 



Enquanto outros micros usam uma 
codificacao bem simples para criar figu- 
ras em aha resolucao — mimeros bina- 
rios, onde "I" e "0" correspondem a 
pontos "acesos" e "apagados" — , o 
Apple tern um codigo compiexo, que 
nao explicaremos agora. 
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Neste artigo, os usuarios do Apple e 
do ZX-81 verao como produzir frguras 

moveis. Usando OS ptogramas e 
observando as instrucoes, poderao, em 
seguida, criar seus proprios desenhos. 



EDITOR DE FIGURAS 



MOTO ESUBMARINQ NO APPLE 
COMO MOVIMENTAR OS 



DESEMHOS 



UM MONSTRO NO ZX-81 



Para facilkar o trabalho, o progra- 
ma a seguir cria uma "tabeia de figu- 
res" na mem6ria do micro, a partir de 
padroes desenhados com asteriscos den- 
tro dc linhas DATA. 



MIMEH: 



PRINT "U 



PO 



100 HOME :E - 35000: 

DIM AC10D) ,B(100) 
110 HTAB 10: VTAB 12: 
M INSTANTE. POR FAVOR" 
120 FOR I - 3S000 TO 37000: 
KE 1,0: NEXT i HOME 
130 F - INT (E / 256) 
140 POKE 232. E - F * 256: POKE 

233, F 
150 PRINT *(DEFINICAO DA TABEL 
A) LINHA DATA ";: PRINT '20 ,0 
";; FOR II - TO 19; W - INT ( 
{42 + II * 32} / 256} :0 - 42 + 
II * 32 - W * 256: PRINT " , " ; ; 
* , ";W;" ";: NEXT II: PRINT : P 
HINT : PRINT "RETURN P/ CONTINU 
AH" : INPUT " " ; OS : HOME 
160 POKE E.20: POKE E + 1,0: F 
OR II - TO 19 
170 W - INT {(42 + II * 32) / 

42 + II * 32 - W * 256 

+ 2 + 2 * II.O: POKE E 

* II, W 

I - TO 100:BU) - 0: 



GR : COLOR- 1: FOR I 
READ ZS: FOR J - 1 T 



TH 



256) :0 - 
: POKE E 

+ 3 + 2 
180 FOR 

NEXT I 
190 Q - 

- 1 TO 8 

o e 

200 IF MIPS US.J.l) 
EN PLOT J + 15,1 + 29 
210 NEXT J: NEXT I 
"220 HTAB 17: VTAB 21: 
2345678" 
230 GOTO 500 

FOR V - TO K - 1 

IF B - 2 AND A(V) > AND 

< 4 THEN 280 

IF B < 2 AND (A{V) > OR 



PRINT 



240 
250 
A(V) 
260 



A{V> > 4) THEN 280 
270B-0:Q-Q+1 
280 B(Q) - B(Q) + ACV) 
) 



(8 



290 B 
300 
+ 1 
310 
320 
RA " 

330 
340 



B 



+ 1 
IF B > 2 THEN B - 0:0 - Q 

NEXT V 

TEXT i HOME ; PRINT "(FIGU 
;II + 1;") LINHA DATA "; 

FOR V - TO 31 

IF V < > THEN PRINT " , 



350 

360 

R{V) 

370 

380 

URN 

390 

- 
400 
5 

410 
420 
430 
440 
450 
460 
470 
480 
490 
500 

- 1 
510 
520 
HEN 
530 
1 

540 
550 
HEN 
560 
1 



PRINT BCV) ;" "| 

POKE E + 42 + 32 * II + V, 

NEXT V 

PRINT : PRINT : PRINT "RET 
P/ CONTINUAfl": INPUT *";OS 
HOME : HGR : SCALE- 1 : ROT 

FOR I - 150 TO 75 STEP - 

HCOLOH- 3 

DRAW II + 1 AT 130.1 

HCOLOR- 

DRAW II + 1 AT 130,1 

NEXT I 

HCOLOR- 3 

DRAW II + 1 AT 130,75 

FOR I - 1 TO 50: NEXT I 

NEXT I I : END 
X - 16:Y - 30:K - 1: FOR J 
TO 4 

FOR I - 1 TO 8 
M - 1: IF SCRN{ X,Y> - 1 T 
M - M + 4 
X - X + l:A(K) - M:K - K + 

NEXT I 
M - 2: IF SCRN{ X,Y) -IT 
M - M + 4 
Y - Y + 1:A{K) - M:K - K + 




ACK) 



M:K - K + 



SCRNt x,y> 



1 T 



A{K) 



M:K - K + 



12345678 



570 FOR I - 1 TO 8 

580 M - 3: IF SCRNt X,Y) - 1 

HEN M - M + 4 

590 X - X - 1 

1 

600 NEXT I 

610 M - 2: IF 

HEN M - M + 4 

620 Y - Y + 1 

1 

630 NEXT J 

640 GOTO 240 

1000 REM 

1001 DATA " 

1002 DATA * 

1003 DATA " 

1004 DATA " 

1005 DATA * 

1006 DATA " 

1007 DATA " ** 

1008 DATA " **" 

() programs permite que voce eric fi- 
gures moveis, tomando como modelo os 
desenhos queaqui apresentamos. Esses 
desenhos sao destinados a outros mi- 
, onde as figuras compoem-se de 
bloco? de oito por oiio pontos. 

Para utili/ar o programa. adicione ao 
s«u final linhas DATA correspondentes 
as figuras da nioto das paginas 316 e 
317. Cada linha DATA deve comer o 
padrSo dc uma das linhas de um bloco 
deoitd por oito pontos, desenhadocom 
asteriscos, Na listagem encontram-se as 
oito primeiras linhas DATA, correspon- 
dentes ao primciro bloco da moto, Di- 
gitc os blocos na seguinte ordem: bloco 
superior esquerdo, bloco interior es- 
querdo, bloco superior da segunda co- 
luna, c assim por dianie, ate bloco in- 
ferior direito, Podem ser digitado 
vinte blocos, ou 160 linhas DATA. 

Para montar na memoria do Apple 
uma tabeia de figures, digite RUM. O 
mesmo comando imprimira as linhas 
DATA necessarias para criar a tabeia de 
dent i o de um programa BASIC. Oi de- 
senhos dos blocos digit ados serao exe- 
cutados cm baixa e alt a resoluyao. 



COMO UTILIZAR A TABELA DE FIGURAS 



Tendo a tabeia com os blocos dos de- 
senhos da moto na memoria — sao de- 
zesseis blocos ou 128 linhas DATA — , 
voce podera dar movimento a eles. Di- 
gite NEW e copie o programa: 
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10 

100 

no 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

290 

290 

300 

310 

320 

330 

340 

350 

360 

370 

360 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 



HGR 
FOR 
HCOLOR- 3 
DRAW 1 AT 
DRAW 
DRAW 




SCALE- 1: ROT- 
I - TO 110 STEP 16 



DRAW 
DRAW 



AT 
AT 
AT 

AT 



DRAW 6 AT 

DRAW 7 AT 

DRAW 8 AT 

FOR J - 1 TO 200 

HCOLOR- 



100 

108 

+ 8,100 
8,108 
16.100 
16.108 
24,100 
24.108 
NEXT 



DRAW 
DRAW 

DRAW 
DRAW 
DRAW 
DRAW 
DRAW 



AT 
AT 
AT 

AT 
AT 
AT 
AT 



100 

108 

+ 8,100 

8.108 

16.100 

16,108 

24,100 

24.108 



DRAW 8 AT 

NEXT I 

FOR I - 110 TO 250 STEP 16 

HCOLOR- 3 

DRAW 9 AT 1,100 

DRAW 10 AT 1,108 

DRAW 11 AT I + 8,100 

DRAW 12 AT I + 8,108 

DRAW 13 AT I + 16.100 

DRAW 14 AT I + 16.108 

DRAW 15 AT I + 24,100 

DRAW 16 AT I + 24,108 

FOR J • 1 TO 100; NEXT J 

HCOLOR- 

DRAW 9 AT 1,100 



DRAW 10 AT 
DRAW 11 AT 
DRAW 12 AT 
DRAW 13 AT 
DRAW 14 AT 
DRAW 15 AT 
DRAW 16 AT 
NEXT I 



108 

+ 8.100 

8,108 

16,100 

16,108 

24,100 

24,108 



Na linha 10 HGR liga a tela de alta 
lucao; SCALE = 1 define aescalado 
desenho e ROT = (I define a orientacao 
horizontal do mesmo. 

nhas 120 a 190 desenham a mo- 

to, usando DRAW N A 1 X.Y, ondc N 

numero do bloco de oito por oito 



pontos, na ordem em que Coram criados 
pelo programa editor; X e Y sao as eoor- 
denadas da posicao desejada. A linha 
200 promove uma pequena pausa, an- 

iue as linhas 220 a 290 apaguen 
mesmos blocos, desenhando-os em | 
to — HCOLGR = 0. O FOR...NHYI 
das linhas 100 a 300 repete o proc; 
dando movimenlo ao desenho. O res- 
tante do programa e uma repeticao da 
primeira parte, so que utiliza o desenho 
da moto "empinando" — blocos 9 a 16. 
Para montar o desenho sem ernpre- 
gar o programa editor, adicione ao pro- 
grama as linhas DATA que ele criou. As 
linhas seguintes usarao os numcros ali 
eontidos para montar a mesma tahela de 
figuras, 

20 HOME :E - 35000: HIMEM: E 

30 F - INT (E / 256) : POKE 232 

,E - F * 256: POKE 233, F 

40 FOR I - E TO E + 41 + 16 * 

32 

50 READ A: POKE I. A 

60 NEXT 

E content o endereco inicial do local 
onde a tabela sera montada na memo- 
ria — e igual a variavel de mesmo no- 
me no programa editor. HIMEM :E pro- 
w*sta area no topo da memoria. Os 
POKE da linha 20 informant o endere- 
co ao Apple. O rcstante do programa le 
os dados com READ e monta a tabela 
com POKE. Na linha 40, 16 e o mime- 
ro total de blocos. 

Outra alternative para eviiar o uso do 
editor e gravar a tabela de figuras em fi- 
ta, usando o comando W do monitor, 
ou em disco, usando o comando BSA- 
VE. As linhas DATA deixarao de ser ne- 
cessarias, mas conttnuaremos|precisan- 
do das linhas 20 a 40. 




SUBMARIN0 



O programa seguimc movimenta o 
submarino da pagina 319, desde que ele 
ten ha sido criado pelo programa editor. 



10 

100 

110 



120 

130 

Y - 
140 
EN 1 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 



HGR : SCALE* 
Y - 10Q;LY ■ 



1: ROT- 
Y: GOTO 170 



GET A$: IF AS 



THEN 11 



- "P- AND Y > 3 THEN 
GOTO 170 

- "L" AND Y < 150 TH 
3: GOTO 170 

- « " THEN 260 



LY - Y 
IF AS 
Y - 3 
IF AS 
- Y + 
IF AS 
GOTO 110 
HCOLOR- 
DRAW 1 AT 10, LY 
DRAW 2 AT 18, LY 
DRAW 3 AT 26, LY 
HCOLOR- 5 
DRAW 1 AT 10, Y 
DRAW 2 AT 18. Y 
DRAW 3 AT 26, Y 
GOTO 110 

FOR I - TO 230 STEP 4 
HCOLOR- 1 

DRAW 4 AT 34 + I. Y 
HCOLOR- 

DRAW 4 AT 34 + I, Y 
NEXT I: GOTO 110 




As teclas R e L movimentam o sub 



^m 



H 






■I 
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marino para cima e para baixo. A ha 
ra de espaco fanca torpedos. 



programa que se segue cria um 
monstro com auxtlio do codigo de 
maquina. 

1 HEM 

10 LET A$-*2AOC40233ABC4047112 

1O0FEOO28O319' 

15 LET AS-A$+-10FD3ABD4016005F 

1911BE403ABB40FE" 

20 LET AS-AS+*00280311CE400604 

C506041A77231310- 

25 LET A$-A$+"FA011DOO09ClX0F0 

C9Q10000" 

30 LET A$-A$+"QQQ0OO000O00OQ0O 

0000000000000000* 

35 LET A$-AS+"878B8BO48O8S0S80 

0280800106B50586" 

50 FOR N-16514 TO 16605 

60 POKE N,16*CODE AS+CODE A3 (2 

)-476 

70 LET AS-ASC3 TO ) 

80 NEXT N 

A iinha I precisa ter pelo menos 92 
caracteres apos REM, para acomodar o 





programs em codigo que sera criado. As 
linhas 10 a 25 contem o programa que 
coloca o monstro na tela — os codigos 
estao dentro dc AS, Os zeros — 32 ao 
todo — da linha 30 apagam o desenho 
com espacos em branco. 

A linha 35 contem o padrao do 
monstro. Se compararmos seu eonteu- 
do — dois digitos de eada vez — com 
o conjunto de caracteres do apendiee A 
do manual, veremos que all estao carac- 
teres grafieos invertidos. 

Esses caracteres desenham o mons- 
tro, do canto superior esquerdo ao in- 
ferior direito. Comoeles dividem um es- 
paco de caractere em quatro partes, a re- 
solucao final e de oito por oito pontos. 

Para mudar o desenho, basta trocar 
os mimeros nesta linha. Codigos de co- 
mandos BASIC que tenham mais de um 
caractere com AT, TAB, THEN ou 
LEN nao podem ser empregados. 

Quando utilizamos RUN, o progra- 
ma contido em AS e eolocado no espa- 
co que se segue a REM pelas linhas 50 
a 80. Se listarmos, entao, o programa, 
veremos os caracteres correspondentes 
aos eddigos. Os que desenham o mons- 
tro estao no final da linha. 

Depots que o programa estiver den- 
tro da linha REM, apague as demais e 
digite: 

10 LET X-14 

20 LET Y-8 



30 POKE 16571,1 

40 POKE 16572, Y 

50 POKE 16573, X 

60 RAND USA 16514 
100 LET AS-INKEYS 
110 IF AS-"* THEN GOTO 100 
120 IF AS-"Z" AND X>0 THEN LET 

x-x-i 

130 IF AS=«*X" AND X<28 THEN 

LET X~X+1 

140 IF AS-"P" AND Y>0 THEN LET 

Y-Y-l 

150 IF AS-"L" AND Y<20 THEN LET 

Y-Y+l 

160 POKE 16571,0 

170 RAND USR 16514 

180 GOTO 30 

As linhas 10 e 20 cotocam as coorde- 
nadas do centro da teta em X e Y. A li- 
nha 30 introduz o numero 1 no progra- 
ma em codigo, usando POKE, para que 
seja impress© o monstro, e nao espacos 
em branco. As linhas 40 e 50 colocam 
X e Y da mesma forma, estabelecendo 
a posicao da figura. A seguir, a rotina 
em c6digo 6 chamada e o computador 
desenha o monstro. 

As linhas 100 a 150 contem a rotina 
tfpica que move algo na tela (veja pagi- 
na 31). Z movimenta o desenho para a 
esquerda, X para a direita, P para cima 
e L para baixo. 

A linha 160 coloca dentro do pro- 
grama em c6digo, para desenhar espa- 
cos em branco; a linha 1 70 chama o pro- 
grama, apagando o desenho. A linha 
180 volta ao imcto. 



INVERSA0 OA TELA 



Com o c6digo de maquina, pode-se 
tambem inverter a tela no ZX-81 . O pro- 



grama a seguir faz isso, trocando o preto 
pelo branco e vice-versa. Embora ele de- 
va ser chamado de dentro de um progra- 
ma BASIC, co!oque-o na rnemoria usan- 
do o nosso monitor (veja pagina 92). 

2A 0C 40 06 17 23 7E FE 76 28 
05 C6 80 77 18 F5 10 F3 C9 

Use RAND USR "endereco inicial" 

parairoda-lo, Como esse comando, sem 
um numero na frente, limpara a tela, o 
efeito nao sera interessante. Um progra- 
ma simples dara melhores resultados. 

20 LIST 

30 RAND USR 

Aqui, RAND USR deve ser seguido 
do endereco inicial do programa. 

Podemos ainda colocar essa rotina de 
inversao dentro do programa do mons- 
tro. Os codigos serao adicionados a AS. 
Acrescente a linha: 

40 LET A$-A3+"2A0C400617237EFE7 

62805C680 7 718F510F3C9" 

Note que nao ha espaco entre os 
cOdigos. 

A linha 50 deve ser alterada para co- 
locar os codigos extras dentro do REM. 

50 FOR N-16514 TO 16624 

A linha REM precisa ter mais 19 es- 
pacos dispomveis, pelo menos. Apos ro- 
dar o programa com essas modificacoes, 
apague todas as linhas, com excecao da 
REM, e copie o programa de movimen- 
tacao com esta linha a mais: 

155 IF A$«"I" THEN RAND USR 166 
06 

O endereco 16606 e o initio da nova 
rotina. Ela podera ser chamada por 
meio da tecla I. Ao pressiona-Ia, o 

monstro sera invertido. Mantendo a 
pressao, ele cintilara. 



SIMULE ALTA RES0LUCA0 



Como voce ja sabe, o ZX-81 nao tern 
alta resolucao grafica. Porem, com o co- 
digo de maquina, pode-se produzir al- 
go semelhante. Este programa simples- 
mente usa POKE para colocar um pe- 
queno programa apos o REM da linha 
10 e, depois, o chama. 



10 REM 

20 POKE 16514,62 
30 POKE 16516,237 
40 POKE 16517,71 
50 POKE 16518,201 
60 FOR N-0 TO 30 
70 POKE 16515, N 
80 RAND USR 16514 
90 NEXT N 

Infelizmente, nao ha um processo fa- 
cil para mover desenhos desse tipo. 

















LINHA 


FABRICANTE 


MODELO 
Thor2010 


FABRICANTE 


MODELO 


PAIS 


LINHA 


Apple 11 + 


Appletronlca 


Appletronica 


Trior 2010 


Brasil 


Apple II + 


Apple 11 + 


CCE 


MC-4000 Exato 


Apply 


Apply 300 


Brasil 


Sinclair ZX-81 


Apple 11 + 


CPA 


Absolutus 


CCE 


MC-4000 Exato 


Brasil 


Apple II + 


Apple 11 + 


CPA 


Polaris 


CPA 


Absolutus 


Brasil 


Apple II + 


Apple 11 + 


Digitus 


DGT-AP 


CPA 


Polaris 


Brasil 


Apple II + 


Apple 11 + 


Dismac 


D-8100 


Codimex 


CS-6508 


Brasil 


TRS-Color 


Apple 11 + 


ENIAC 


ENIAC II 


Digitus 


DGT-100 


Brasil 


TRS-80 Mod.lll 


Apple 11 + 


Franklin 


Franklin 


Digitus 


DGT-1000 


Brasil 


TRS-80 Mod.lll 


Apple 11 + 


Houston 


Houston AP 


Digitus 


DGT-AP 


Brasil 


Apple II + 


Apple 11 + 


Magnex 


DM II 


Dismac 


D-8000 


Brasil 


TRS-80 Mod. I 


Apple 11 + 


Maxitronica 


MXZ001 


Dismac 


D-8001/2 


Brasil 


TRS-80 Mod. I 


Apple 11 + 


Maxitronica 


MX-48 


Dismac 


D-8100 


Brasil 


Apple II + 


Apple 11+ 


Maxitronjca 


MX-64 


Dynacom 


MX-1600 


Brasil 


TRS-Color 


Apple 11+ 


Maxitronica 


Maxitronic 1 


ENIAC 


ENIAC II 


Brasil 


Apple II + 


Apple 11+ 


Microcraft 


CrattlPtus 


Engebras 


AS-1000 


Brasil 


Sinclair ZX-81 


Apple 11+ 


Milmar 


Apple II Plus 


Filcres 


NEZ-8000 


Brasil 


Sinclair ZX-81 


Apple 11+ 


Milmar 


Apple Master 


Franklin 


Franklin 


USA 


Apple II + 


Apple 11 + 


Milmar 


Apple Senior 


Gradients 


Expert GPC1 


Brasil 


MSX 


Apple 11 + 


Omega 


MC-400 


Houston 


Houston AP 


Brasil 


Apple II + 


Apple 11 + 


Polymax 


Maxxi 


Kemitron 


NajaBOO 


Brasil 


TRS-80 Mod.lll 


Apple 11 + 


Polymax 


Poly Plus 


LNW 


LNW-80 


USA 


TRS-80 Mod. 1 


Apple It + 


Spectrum 


Mlcroengenho 1 


LZ 


Color 64 


Brasil 


TRS-Color 


Apple 11 + 


Spectrum 


Spectrum sd 


Magnex 


DM II 


Brasil 


Apple 11 + 


Apple 11 + 


Suporte 


Venus II 


Maxitronica 


MX-2001 


Brasil 


Apple 11 + 


Apple!t + 


Sycomig 


SICI 


Maxitronica 


MX-48 


Brasil 


Apple 11 + 


Apple 11 + 


Unitron 


APII 


Maxitronica 


MX-64 


Brasil 


Apple 11 + 


Apple 11 + 


Victor do Brasil 


Elppa II Plus 


Maxitronica 


Maxitronic I 


Brasil 


Apple II + 


Apple 11 + 


Victor do Brasfl 


ElppaJr. 


Microcraft 


Craft ll Plus 


Brasil 


Apple 11 + 


Apple lie 


Microcraft 


Craft lie 


Microcraft 


Caftlle 


Brasil 


Apple He 


Apple He 


Microdigital 


TK-3000lle 


Microdigital 


TK-3000lle 


Brasil 


Apple Me 


Apple He 


Spectrum 


Mlcroengenho II 


Microdigital 


TK82C 


Brasil 


Sinclair ZX-81 


MSX 


Gradlente 


Expert GPC-1 


Microdigital 


TK-83 


Brasil 


Sinclair ZX-81 


MSX 


Sharp 


HotbltHB-8000 


Microdigital 


TK-85 


Brasil 


Sinclair ZX-81 


Sinclair Spectrum 


Microdigital 


TK-90X 


Microdigitai 


TK-90X 


Brasil 


Sinclair Spectrum 


Sinclair Spectrum 


Timex 


Timex 2000 


Microdigital 


TKS-800 


Brasfl 


TRS-Color 


Sinclair ZX-81 


Apply 


Apply 300 


Milmar 


Apple II Plus 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Engebras 


AS-1000 


Milmar 


Apple Master 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Filcres 


NEZ-8000 


Milmar 


Apple Senior 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-82C 


Multix 


MX-Compacto 


Brasil 


TRS-80 Modi V 


Sinclair ZX-81 


Microdigital 


TK-83 


Omega 


MC-400 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-85 


Polymax 


Maxxi 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Prologica 


CP-200 


Polymax 


Poty Plus 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Ritas 


Ringo R-470 


Prologica 


CP-200 


Brasil 


SlnclairZX-81 


Sinclair ZX-81 


Timex 


Timex 1000 


Prologica 


CP-300 


Brasil 


TRS-80 Mod.lll 


Sinclair ZX-81 


Timex 


Timex 1500 


Prologica 


CP-400 


Brasil 


TRS-Color 


TRS-80 Mod. I 


Dlsmac 


D-8000 


Prologica 


CP-SOO 


Brasil 


TRS-80 Mod.lll 


TRS-80 Mod. I 


Dlsmac 


D-8001/2 


Ritas 


Ringo R-470 


Brasil 


Sinclair ZX-81 


TRS-80 Mod. I 


LNW 


LNW-80 


Sharp 


Hotbit HB-800( 


I Brasil 


MSX 


TRS-80 Mod. I 


Video Genie 


Video Genie t 


Spectrum 


Mlcroengenho 


I Brasil 


Apple 11 + 


TRS-80 Mod.lll 


Digitus 


DGT-100 


Spectrum 


Mlcroengenho 


II Brasil 


Apple He 


TRS-80 Mod.lll 


Digitus 


DGT-1000 


Spectrum 


Spectrum ed 


Brasil 


Apple 11 + 


TRS-80 Mod.lll 


Kemitron 


NajaSOO 


Suporte 


Venus II 


Brasil 


Apple 11 + 


TRS-80 Mod.lll 


Prologica 


CP-300 


Sycomig 


SICI 


Brasil 


Apple 11 + 


TRS-80 Mod.lll 


Prologica 


CP-500 


Sysdata 


Sysdata III 


Brasil 


TRS-80 Mod.lll 


TRS 80 Mod.lll 


Sysdata 


Sysdata III 


Sysdata 


Sysdata IV 


Brasil 


TRS-80 Mod.IV 


TRS-80 Mod.lll 


Sysdata 


Sysdata Jr. 


Sysdata 


Sysdata Jr. 


Brasil 


TRS-80 Mod. II 1 


TRS80Mod.IV 


Multix 


MX-Compacto 


Timex 


Timex 1000 


USA 


Sinclair ZX-81 


TRS-80 Mod.IV 


Sysdata 


Sysdata IV 


Timex 


Timex 1S0O 


USA 


Sinclair ZX-81 


TRSColor 


Codimex 


CS-6508 


Timex 


Timex 2000 


USA 


Sinclair Spectrum 


TRS-Color 


Dynacom 


MX-1600 


Unitron 


APII 


Brasil 


Apple 11 + 


TRSColor 


LZ 


Color 64 


Victor do Brasil 


Elppa II Plus 


Brasil 


Apple 11 + 


TRSColor 


Microdigital 


TKS-800 


Victor do Brasil 


Elppa Jr. 


Brasil 


Apple 11 + 


TRSColor 


Prologica 


CP-400 


Video Genie 


Video Genie I 


USA 


TRS-80 Mod. 1 


INPUT foi especialmente projetado para 


_ 


■ d r 


r^l 


f£li 




microcomputadores compativeis com as sete principals ] Sinclair zx-bi 


■_■ TRS-80 L 


JLU TK 2000 


frri msx 




jjnhas existences no mercado. 

Os blocos de textos e listagens de programas aplicados ^^^ 






Quando o emblems for seguido de uma 
faixa, entao lanlo o 


r "] r- 


~l~l 


apeaas a determinadas linhas de micros podem ser 
identificados por meio dos seguintes sfmbolos: 


^■■■i 


■ ■ 


m 


programas que $i 

especificos para ; 


seguem passam a ser 
linna indicada. 


mmmm Spectrum 


■Jl TRSColor L. 


■J Apple II 



IIIIIIIHNO PROXIMO NUMEROHIIIHI 



APLICACOES 

Para aperfeicoar sua datilografia, complete o programa 
do curso e pratique com textos mais longos. 

PROGRAMACAO BASIC 

As funcoes matematicas permitem controlar varias operacoes 
no micro. Recorra a elas para sofisticar seus graficos. 

PROGRAMACAO DE JOGOS 

Com mais algumas rotinas, a aventura de INPUT ficara 
perfeita. Rode o programa e divirta-se! 



curso wW* 



pR OOR^^ 



iOGOS 



&&HVi 



j&ir^ 



